home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / M2PROTOS.ZIP / QCKERMIT.DEF < prev    next >
Encoding:
Modula Definition  |  1990-08-02  |  805 b   |  28 lines
  1. (*# call(o_a_copy => off) *)
  2. (*%F _fdata *)
  3. (*# call(seg_name => null) *)
  4. (*%E *)
  5. (*# module(implementation=>on) *)
  6. (*# data(seg_name => null) *)
  7. DEFINITION MODULE QCkermit;
  8.  
  9.                      (* This JPI Modula-2 module is part of *)
  10.  
  11.                       (* QC -- a communications program *)
  12.                              (* by Carl Neiburger *)
  13.                               (* 169 N. 25th St.*)
  14.                           (* San Jose, Calif. 95116 *)
  15.  
  16.                          (* CompuServe No. 72336,2257 *)
  17.  
  18. FROM PathFind IMPORT FilePtr;
  19.  
  20. PROCEDURE SendKermit( FileList: FilePtr );
  21. PROCEDURE ReceiveKermit( Path, GetFile : ARRAY OF CHAR);
  22. (* If GetFile > 0C, R packet will be sent *)
  23.  
  24. PROCEDURE KermitCmd( Cmd: CHAR );
  25. (* Can send 'L'ogout or 'F'inish *)
  26.  
  27. END QCkermit.
  28.